Begin _NR_appletree

short apples
short timer

If ( OnActivate == 1 )

	If ( apples == 0 )
		PlaceAtPC, "OBJECT_ID", 1, 5, 0,
		MessageBox "An apple falls of the tree at your feet."
		Set timer to ( timer + GetSecondsPassed )
		Set apples to 1

	else ( apples == 1 )
		MessageBox "Nothing happens when you shake the tree."
	endif

	If ( timer > 120 )
		Set apples to 0
		Set timer to 0
	endif
endif

End